# Program Example for O/S Version Check
# by Maxwell N. Andrews
# Date: 12th Jan 1995

$winver= winver;
$platform= "Unknown";

if ( $winver & 0x80000000 ) {

   $platform= ( $winver & 0x40000000 ) ? "Windows 95": "Win32s";
}
else {

     $platform= "Windows NT, or DPMI32";
}

printf( "You are using $platform v%d.%d\n", $winver & 0xff, ( $winver >> 8 ) & 0xff );


# End of Program

